VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{B3FB64BF-91F9-11D7-A482-0008A14158BC}#2.22#0"; "ITGControls.ocx"
Begin VB.Form frmMaintDues 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   3015
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   7560
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3015
   ScaleWidth      =   7560
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   Begin ITGControls.ITGTab SSTab1 
      Height          =   1605
      Left            =   0
      TabIndex        =   0
      Top             =   1080
      Width           =   7545
      _ExtentX        =   13309
      _ExtentY        =   2831
      TabCount        =   2
      TabCaption(0)   =   "               Main               "
      TabContCtrlCnt(0)=   4
      Tab(0)ContCtrlCap(1)=   "Timer1"
      Tab(0)ContCtrlCap(2)=   "txtDuesID"
      Tab(0)ContCtrlCap(3)=   "txtDescription"
      Tab(0)ContCtrlCap(4)=   "Shape2"
      TabCaption(1)   =   "               List               "
      TabContCtrlCnt(1)=   1
      Tab(1)ContCtrlCap(1)=   "dtgList"
      TabTheme        =   2
      ActiveTabBackStartColor=   16250865
      ActiveTabBackEndColor=   16243138
      InActiveTabBackStartColor=   16243138
      InActiveTabBackEndColor=   16243138
      BeginProperty ActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty InActiveTabFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      OuterBorderColor=   4210752
      TopLeftInnerBorderColor=   4210752
      BottomRightInnerBorderColor=   4210752
      DisabledTabBackColor=   16243138
      DisabledTabForeColor=   -2147483630
      Begin VB.Timer Timer1 
         Interval        =   300
         Left            =   3525
         Top             =   510
      End
      Begin ITGControls.ITGTextBox txtDuesID 
         Height          =   285
         Left            =   375
         TabIndex        =   3
         Top             =   630
         Width           =   2880
         _ExtentX        =   4868
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         BackColor       =   14745599
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Dues ID"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1410
         TextBoxWidth    =   1410
      End
      Begin ITGControls.ITGTextBox txtDescription 
         Height          =   285
         Left            =   375
         TabIndex        =   2
         Top             =   930
         Width           =   6840
         _ExtentX        =   11853
         _ExtentY        =   503
         SendKeysTab     =   -1  'True
         LabelBackColor  =   16243138
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         AllCaps         =   -1  'True
         Mandatory       =   -1  'True
         Label           =   "Description"
         BeginProperty LabelFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         LabelWidth      =   1410
         TextBoxWidth    =   5370
      End
      Begin MSDataGridLib.DataGrid dtgList 
         Height          =   1290
         Left            =   -75000
         TabIndex        =   1
         Top             =   315
         Width           =   7545
         _ExtentX        =   13309
         _ExtentY        =   2275
         _Version        =   393216
         AllowUpdate     =   0   'False
         AllowArrows     =   -1  'True
         Appearance      =   0
         HeadLines       =   1
         RowHeight       =   15
         TabAction       =   2
         FormatLocked    =   -1  'True
         BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
            Name            =   "Tahoma"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ColumnCount     =   2
         BeginProperty Column00 
            DataField       =   "cCode"
            Caption         =   "Dues ID"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   13321
               SubFormatType   =   0
            EndProperty
         EndProperty
         BeginProperty Column01 
            DataField       =   "cDesc"
            Caption         =   "Description"
            BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
               Type            =   0
               Format          =   ""
               HaveTrueFalseNull=   0
               FirstDayOfWeek  =   0
               FirstWeekOfYear =   0
               LCID            =   13321
               SubFormatType   =   0
            EndProperty
         EndProperty
         SplitCount      =   1
         BeginProperty Split0 
            AllowRowSizing  =   0   'False
            BeginProperty Column00 
            EndProperty
            BeginProperty Column01 
            EndProperty
         EndProperty
      End
      Begin VB.Shape Shape2 
         FillColor       =   &H00404040&
         Height          =   1170
         Left            =   75
         Top             =   375
         Width           =   7380
      End
   End
   Begin MSComctlLib.StatusBar sbRS 
      Align           =   2  'Align Bottom
      Height          =   255
      Left            =   0
      TabIndex        =   4
      Top             =   2760
      Width           =   7560
      _ExtentX        =   13335
      _ExtentY        =   450
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   2
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   3528
            MinWidth        =   3528
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
         EndProperty
      EndProperty
   End
   Begin VB.Image imgLogo 
      BorderStyle     =   1  'Fixed Single
      Height          =   930
      Left            =   6465
      Stretch         =   -1  'True
      Top             =   0
      Width           =   1125
   End
   Begin VB.Shape Shape1 
      BorderColor     =   &H00404040&
      Height          =   975
      Left            =   0
      Top             =   0
      Width           =   6390
   End
   Begin VB.Label lblHeader 
      BackColor       =   &H00F7D9C2&
      Caption         =   "Dues ID - Dues"
      BeginProperty Font 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   405
      Left            =   75
      TabIndex        =   6
      Top             =   120
      Width           =   6180
   End
   Begin VB.Label lblDetails 
      BackColor       =   &H00F7D9C2&
      Caption         =   "Dues"
      ForeColor       =   &H00000000&
      Height          =   315
      Left            =   75
      TabIndex        =   5
      Top             =   540
      Visible         =   0   'False
      Width           =   6180
   End
End
Attribute VB_Name = "frmMaintDues"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'Private WithEvents rsHeader As ADODB.Recordset
'
''Form mode enumeration
'Public Enum eMaintDues
'    Normal
'    AddNewEdit
'    Find
'End Enum
'Private Mode As eMaintDues
'
''Other declaration
'Public sBit As String
'Private vBM As Variant 'Recordset bookmark variable
'
''Security Acess Level variables
'Public lACNew As Boolean
'Public lACEdit As Boolean
'Public lACDelete As Boolean
'Public lACPost As Boolean
'Public lACCancel As Boolean
'Public lACPrint As Boolean
'
'Private Sub dtgList_HeadClick(ByVal ColIndex As Integer)
'    SortGrid dtgList, ColIndex, rsHeader
'End Sub
'
'Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
'Dim iKey As Integer
'    iKey = ToolbarIndex(KeyCode, Shift)
'    If iKey <> 0 Then
'        If ITGLedgerMain.tbrMain.Buttons(iKey).Enabled = True Then
'            ToolbarFunction iKey
'        End If
'    End If
'End Sub
'
''Set Your Object
'Private Sub Form_Load()
'    Set FrmName = Me
'    FormSetup
'
'    AcessBit Me, GetValueFrTable("AccessLevel", "SEC_ACCESSLEVEL", "RoleID = '" & SecUserRole & "' AND [module] = 'MF55'")
'
'    Set rsHeader = New ADODB.Recordset
'
'
'
'    FormLocking True
'    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
'    BitVisible ITGLedgerMain.tbrMain
'    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
'
'    Mode = Find
'    txtDuesID.Locked = False
'End Sub
'
''Activate your Toolbar Mode
'Private Sub Form_Activate()
'    TBBitReload
'End Sub
'
''Release your Object
'Private Sub Form_Unload(Cancel As Integer)
''On Error Resume Next
''    If Mode = AddNewEdit Then
''        MsgBox "Unable to close. You are in Add/New/Edit mode." & vbCr & _
''            " Must Save or Undo", vbCritical, Me.Caption
''        Cancel = True
''        Exit Sub
''    End If
''
''    CloseMenuTab ITGLedgerMain
''
''    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , , , , , , , True
''    BitVisible ITGLedgerMain.tbrMain
''    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = False
''
''
''
''
''
''    Set rsHeader = Nothing
''
''    Set frmMaintWorkMaintenanceFile = Nothing
''
''    lCloseWindow = True
''
'''    'oForm(Me.Tag).Mode = 1
'''    'oForm(Me.Tag).Tag = Me.Tag
'End Sub
'
''Add new record to the recordset
'Public Sub TBNew()
'
'    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True
'    txtDuesID.BackColor = &HE0FFFF
'    Mode = AddNewEdit
'
'    If rsHeader.State <> adStateOpen Then
'        OpenRecordset rsHeader, "*", "work_maintenance_file", "WHERE 1 = 0 ", True
'        SetDataSource
'        SetDataField
'    Else
'        vBM = rsHeader.Bookmark
'    End If
'
'    rsHeader.AddNew
'
'    rsHeader!cCompanyID = COID
'
'    Set FrmName = Me
'    FormLocking False
'    txtDuesID.SetFocus
'    SSTab1.ActiveTab = 0
'    txtDuesID.SetFocus
'
'End Sub
'
''Undo all changes to the recordset
'Public Sub TBUndoAll()
'On Error GoTo ErrorHandler
'
'    Mode = Normal
'
'    If rsHeader.Status = adRecNew Then TBUndoCurrent
'
'    rsHeader.CancelBatch adAffectAll
'
'    UnbindControls
'
'    If rsHeader.RecordCount <> 0 Then rsHeader.Bookmark = vBM
'
'    Set FrmName = Me
'    FormLocking True
'
'    If rsHeader.RecordCount <> 0 Then
'        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
'    Else
'        RSZero
'        Mode = Find
'    End If
'
'    sbRS.Panels(2) = ""
'
'    SetDataSource
'    SetDataField
'
'ErrorHandler:
'    If err.Number = -2147217885 Then
'        Resume Next
'    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
'        TBUndoAll
'    End If
'
'End Sub
'
''Undo changes on the current record
'Public Sub TBUndoCurrent()
'On Error GoTo ErrorHandler
'
'    If rsHeader.Status = adRecNew Then
'        rsHeader.CancelUpdate
'    Else
'        rsHeader.CancelBatch adAffectCurrent
'    End If
'
'    If rsHeader.RecordCount = 0 Then RSZero
'
'ErrorHandler:
'    If err.Number = -2147217885 Then
'        Resume Next
'    ElseIf err.Number = -2147217842 Then 'Operation was cancelled. (Error returned by ITGDateBox)
'        TBUndoCurrent
'    End If
'
'End Sub
'
''Save all changes
'Public Sub TBSave()
'Dim OKUpdate As Boolean
'On Error GoTo ErrHandler
'
'    'Audit Trail
'    lBoolean = False
'    If rsHeader.Status = adRecNew Then lBoolean = True
'
'    If Not MandatoryOK Then Exit Sub
'
'    OKUpdate = False
'    cn.BeginTrans
'
'    rsHeader.UpdateBatch adAffectAll
'
'    cn.CommitTrans
'    OKUpdate = True
'
'    Set FrmName = Me
'    FormLocking True
'    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
'    Mode = Normal
'
'    MsgBox "Record/s successfully saved.", vbInformation, "ComUnion"
'    sbRS.Panels(2) = ""
'
'    'Audit trail
'    UpdateLogFile "Sec - WorkNo", Trim(txtDuesID), IIf(lBoolean, "Inserted", "Updated")
'
'ErrHandler:
'    If err.Number = -2147217885 Then
'        Resume Next
'    ElseIf err.Number = -2147217864 Then
'        OKUpdate = True
'        cn.RollbackTrans
'        MsgBox "Record cannot be updated. Some values may have been changed by other user/s since last read." & vbCr & _
'                "Records will be automatically refreshed. All changes made to the record will be gone upon refresh.", vbInformation, "ComUnion"
'        vBookMark = rsHeader.Bookmark
'        UnbindControls
'        rsHeader.Requery
'        BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
'        Mode = Normal
'        If rsHeader.RecordCount <> 0 Then
'            Set FrmName = Me
'            FormLocking True
'            SetDataField
'            SetDataSource
'            rsHeader.Bookmark = vBookMark
'        Else
'            RSZero
'        End If
'    End If
'
'    If Not OKUpdate Then
'        MsgBox "Transaction update failed.", vbInformation, "ComUnion"
'        cn.RollbackTrans
'        ErrorLog err.Number, err.Description, Me.Name 'Error log
'    End If
'
'End Sub
'
''Sets the form & recorset to add/edit mode
'Public Sub TBEdit()
'    Mode = AddNewEdit
'    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, , , , True, True, , , True, True, , , , True
'    Set FrmName = Me
'    FormLocking False
'    txtDuesID.Locked = True
'    SSTab1.ActiveTab = 0
'    txtDescription.SetFocus
'    vBM = rsHeader.Bookmark
'End Sub
'
''Delete record
'Public Sub TBDelete()
'On Error GoTo ErrorHandler
'
'    If rsHeader.RecordCount = 0 Then Exit Sub
'
'    If MsgBox("Are you sure you want to delete this record?", vbQuestion + vbYesNo, "ComUnion") = vbNo Then Exit Sub
'
'    'Audit trail
'    UpdateLogFile "Sec - WorkNo", Trim(txtDuesID), "Deleted"
'
'    rsHeader.Delete adAffectCurrent
'    rsHeader.UpdateBatch adAffectAll
'
'    TBPrevRec
'
'    Mode = Normal
'
'    If rsHeader.RecordCount = 0 Then
'        RSZero
'    End If
'
'ErrorHandler:
'    If err.Number = -2147217885 Then
'        Resume Next
'    End If
'
'End Sub
'
''Search using the frmITGSearch
'Public Sub TBFind()
'    Mode = Normal
'    txtDuesID.Locked = True
'    frmITGSearch.Show
'End Sub
'
''Search using the recordset primary key
'Public Sub TBFindPrimary()
'        'Find
'        If Mode = Find Then
'
'            FormWaitShow App.Path & "\Transmit.avi", "Loading data . . ."
'
'            Set rsHeader = Nothing
'            Set rsHeader = New ADODB.Recordset
'
'            If Trim(txtDuesID) = "" Then
'                OpenRecordset rsHeader, "*", "work_maintenance_file", , True
'            Else
'                OpenRecordset rsHeader, "*", "work_maintenance_file", "WHERE [WorkNo] LIKE '" & Trim(txtDuesID) & "%'", True
'            End If
'
'            Set FrmName = Me
'            FormLocking True
'
'            If rsHeader.RecordCount = 0 Then
'                FormWaitHide
'                MsgBox "No matching record/s found.", vbInformation, "ComUnion Search"
'                rsHeader.Close
'                BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
'                txtDuesID.Locked = False
'                txtDuesID.SetFocus
'                Exit Sub
'            End If
'
'            SetDataSource
'            SetDataField
'
'            txtDuesID.BackColor = &HE0FFFF
'            Mode = Normal
'
'            BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, lACEdit, lACDelete, , , , , , , True, True, , True
'
'            FormWaitHide
'    Else
'    RSZero
'    Mode = Find
'    End If
'End Sub
'
''Reload menu buttons (do not delete this sub)
'Public Sub TBBitReload()
'    BitVisible ITGLedgerMain.tbrMain
'    ITGLedgerMain.tbrMain.Buttons("btnFind").ButtonMenus("btnFindP").Enabled = True
'    BitReload ITGLedgerMain, Me, ITGLedgerMain.tbrMain, sBit
'    Set FrmName = Me
'End Sub
'
''Close active window
'Public Sub TBCloseWindow()
'    Unload Me
'End Sub
'
''Move first
'Public Sub TBFirstRec()
'    If rsHeader.State <> adStateOpen Then Exit Sub
'    MoveFirst rsHeader
'End Sub
'
''Move previous
'Public Sub TBPrevRec()
'    If rsHeader.State <> adStateOpen Then Exit Sub
'    MovePrevious rsHeader
'End Sub
'
''Move next
'Public Sub TBNextRec()
'    If rsHeader.State <> adStateOpen Then Exit Sub
'    MoveNext rsHeader
'End Sub
'
''Move last
'Public Sub TBLastRec()
'    If rsHeader.State <> adStateOpen Then Exit Sub
'    MoveLast rsHeader
'End Sub
'
''Add new line to the detail recordset
'Public Sub TBNewLine()
'    'Not available for this WorkNo
'End Sub
'
''Delete line in the detail recordset
'Public Sub TBDeleteLine()
'    'Not avilable for this WorkNo
'End Sub
'
''Undo all
'Public Sub TBUndoLineAll()
'    'Not available for this WorkNo
'End Sub
'
''Undo current line
'Public Sub TBUndoLineCurrent()
'    'Not available for this WorkNo
'End Sub
'
''Post current record
'Public Sub TBPostRecord()
'    'Not available for this WorkNo
'End Sub
'
''Cancel current record
'Public Sub TBCancelRecord()
'    'Not available for this WorkNo
'End Sub
'
''Print
'Public Sub TBPrintRecord()
'    MsgBox "Unavailable on " & Me.Name
'End Sub
'
''Sets the data source of the controls
'Sub SetDataSource()
'    Set FrmName = Me
'    BindControls rsHeader
'    Set dtgList.DataSource = rsHeader
'End Sub
'
''Sets the data field for every bounded controls
'Sub SetDataField()
'    With rsHeader
'        txtDuesID.DataField = ![WorkNo]
'        txtDescription.DataField = !Description
'    End With
'End Sub
'
'Private Sub rsHeader_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'On Error GoTo ErrorHandler
'
'    If Not (rsHeader.EOF) Or Not (rsHeader.BOF) Then
'        sbRS.Panels(1) = "Record: " & IIf((rsHeader.AbsolutePosition = -2), "0", rsHeader.AbsolutePosition) & "/" & rsHeader.RecordCount
'
'        If rsHeader.Status <> adRecNew Then
'            txtDuesID.Locked = True
'        Else
'            txtDuesID.Locked = False
'        End If
'
'        If Mode = AddNewEdit Then
'            Select Case rsHeader.Status
'                Case adRecNew
'                    sbRS.Panels(2) = "New"
'                Case adRecModified
'                    sbRS.Panels(2) = "Modified"
'                Case Else
'                    sbRS.Panels(2) = ""
'            End Select
'        Else
'            sbRS.Panels(2) = ""
'        End If
'    Else
'        sbRS.Panels(1) = "Record: 0/0"
'        sbRS.Panels(2) = ""
'        txtDuesID.Locked = False
'    End If
'
'ErrorHandler:
'    'Err.Number -2147217885
'    'Description - Row handle referred to a deleted row or a row marked for deletion.
'    If err.Number = -2147217885 Then
'        Resume Next
'    End If
'
'End Sub
'
'Private Sub Timer1_Timer()
'    If Mode = AddNewEdit Then
'        SSTab1.TabEnabled(1) = False
'    Else
'        SSTab1.TabEnabled(1) = True
'    End If
'
'    If Mode <> Find Then Exit Sub
'    If txtDuesID.BackColor = &HE0FFFF Then
'        txtDuesID.BackColor = &HE0E0E0
'        Exit Sub
'    End If
'    If txtDuesID.BackColor <> &HE0FFFF Then
'        txtDuesID.BackColor = &HE0FFFF
'        Exit Sub
'    End If
'
'End Sub
'
'Private Sub txtDuesID_LostFocus()
'    'Does Code Already exists
'    If Mode = AddNewEdit Then
'        If Trim(txtDuesID) = "" Then
'            MsgBox "Empty primary input.", vbInformation, "ComUnion"
'            txtDuesID.SetFocus
'        Else
'            If rsHeader.Status <> adRecNew Then Exit Sub
'            txtDuesID = Trim(txtDuesID)
'            If IDExisting(rsHeader, "[WorkNo]", "work_maintenance_file", Trim(rsHeader![WorkNo]), , True) Then
'                MsgBox "WorkNo ID already exists.", vbInformation, "ComUnion"
'                txtDuesID.SetFocus
'            End If
'        End If
'    End If
'End Sub
'
''Check if all mandatory fields are complete
'Function MandatoryOK() As Boolean
'
'    MandatoryOK = True
'
'    If Trim(txtDuesID) = "" Then
'        MandatoryOK = False
'        MsgBox "Field 'WorkNo ID' is mandatory. Null value is not allowed.", vbInformation, "ComUnion"
'        txtDuesID.SetFocus
'        Exit Function
'    End If
'
'    If rsHeader.Status = adRecNew Then
'        If IDExisting(rsHeader, "[WorkNo]", "work_maintenance_file", Trim(rsHeader![WorkNo]), , True) Then
'            MandatoryOK = False
'            MsgBox "WorkNo ID already exists.", vbInformation, "ComUnion"
'            txtDuesID.SetFocus
'            Exit Function
'        End If
'    End If
'
'    If Trim(txtDescription) = "" Then
'        MandatoryOK = False
'        MsgBox "Field 'Description' is mandatory. Null value is not allowed", vbInformation, "ComUnion"
'        txtDescription.SetFocus
'        Exit Function
'    End If
'
'End Function
'
''Sets the form if record number is zero
'Private Sub RSZero()
'    sbRS.Panels(1) = "Record: 0/0"
'    sbRS.Panels(2) = ""
'
'    Set FrmName = Me
'    UnbindControls
'    TextClearing
'    FormLocking True
'
'    If rsHeader.State = adStateOpen Then rsHeader.Close
'
'    BitEnabled ITGLedgerMain, Me, ITGLedgerMain.tbrMain, lACNew, , , , , , , , , True, , , True
'
'    txtDuesID.Locked = False
'    txtDuesID.SetFocus
'
'    Mode = Find
'End Sub
'
'
'
'
'
'
'
'
'
'
'
'
'
'
'
